n17= set %about $$?="Approx time of return in minutes"
n18= .enable #away
n19= ame is away 12 $+ %areason $+ I will prob be back in about %about minutes. Messages are logged, to page me type /ctcp $me PAGE. %logo
n20= .timer 0 500 describe # is away 12 $+ %areason $+ I have been away since $fulldate $+ . Messages are logged, to page me type /ctcp $me PAGE. %logo
n21=}
n22=/back {
n23= .disable #away
n24= nick $$?="What do you want your nick to be?"
n25= set %away NO
n26= .timers off
n27= ame is back. I have been away since %adate $+ . I am now checking messages. %logo
n28= echo 12 $active You have received %amsg messages while you where away. %logo
n29= set %amsg 0
n30=}
n31=/ircopscan {
n32= if ($1 == $null) { echo 4 -s Error, type: /ircopscan [-e|-c] | halt }
n33= if (# == $null) { set %window -s } | else { set %window # } | set %total 0 | write -c $mircdir $+ raw.txt
n34= if ($1 == -e) { echo 6 This will scan the entire network and tell you the current visable IRCops online. | set %total 0 | set %option 1 | write $mircdir $+ raw.txt /echo 4 %window :ì: Listing IRCops! :ì: | .enable #ircopscan | who 0 o }
n35= if ($1 == -c) {
n36= if (# == $null) { echo 4 -s Error, try using this is the channel window. | halt }
n37= msg # 12D-Day is now listing visable IRCops on all networks.
n38= set %total 0 | set %option 2 | write $mircdir $+ raw.txt /msg # :ì: Listing IRCops! :ì: | .enable #ircopscan | who 0 o
n39= }
n40=}
n41=/leet {
n42= set %leet *1
n43= %leet = $replace(%leet,A,┼)
n44= %leet = $replace(%leet,B,▀)
n45= %leet = $replace(%leet,C,⌐)
n46= %leet = $replace(%leet,D,╨)
n47= %leet = $replace(%leet,E,δ)
n48= %leet = $replace(%leet,H,h)
n49= %leet = $replace(%leet,I,i)
n50= %leet = $replace(%leet,K,]{)
n51= %leet = $replace(%leet,L,ú)
n52= %leet = $replace(%leet,M,m)
n53= %leet = $replace(%leet,N,±)
n54= %leet = $replace(%leet,O,╪)
n55= %leet = $replace(%leet,P,■)
n56= %leet = $replace(%leet,Q,q)
n57= %leet = $replace(%leet,R,«)
n58= %leet = $replace(%leet,S,º)
n59= %leet = $replace(%leet,U,╡)
n60= %leet = $replace(%leet,V,\/)
n61= %leet = $replace(%leet,W,\/\/)
n62= %leet = $replace(%leet,X,╫)
n63= %leet = $replace(%leet,Y,Ñ)
n64= say %leet
n65=}
n66=/chaninfo {
n67= if ($chan(#).topic == $null) { set %topic 12<none> }
n68= else { set %topic 12 $+ $chan(#).topic }
n69= if ($chan(#).mode == $null) { set %mode 12<none> }
n70= else { set %mode 12 $+ $chan(#).mode }
n71= if ($chan(#).key == $null) { set %key 12<none> }
n72= else { set %key 12 $+ $chan(#).key }
n73= if ($chan(#).limit == $null) { set %limit 12<none> }
n74= else { set %limit 12 $+ $chan(#).limit }
n75= msg $chan 4Channel Info for $chan $+ :
n76= msg $chan 3Topic: %topic
n77= msg $chan 3Mode: %mode
n78= msg $chan 3Key: %key
n79= msg $chan 3Limit: %limit
n80= msg $chan %logo
n81=}
n82=/blocktalk {
n83= set %bk $$?1="Enter Text" *2
n84= %bk = $replace(%bk,a,[A])
n85= %bk = $replace(%bk,b,[B])
n86= %bk = $replace(%bk,c,[C])
n87= %bk = $replace(%bk,d,[D])
n88= %bk = $replace(%bk,e,[E])
n89= %bk = $replace(%bk,f,[F])
n90= %bk = $replace(%bk,g,[G])
n91= %bk = $replace(%bk,h,[H])
n92= %bk = $replace(%bk,i,[I])
n93= %bk = $replace(%bk,j,[J])
n94= %bk = $replace(%bk,k,[K])
n95= %bk = $replace(%bk,l,[L])
n96= %bk = $replace(%bk,m,[M])
n97= %bk = $replace(%bk,n,[N])
n98= %bk = $replace(%bk,o,[O])
n99= %bk = $replace(%bk,p,[P])
n100= %bk = $replace(%bk,q,[Q])
n101= %bk = $replace(%bk,r,[R])
n102= %bk = $replace(%bk,s,[S])
n103= %bk = $replace(%bk,t,[T])
n104= %bk = $replace(%bk,u,[U])
n105= %bk = $replace(%bk,v,[V])
n106= %bk = $replace(%bk,w,[W])
n107= %bk = $replace(%bk,x,[X])
n108= %bk = $replace(%bk,y,[Y])
n109= %bk = $replace(%bk,z,[Z])
n110= %bk = $replace(%bk,!,[!])
n111= %bk = $replace(%bk,?,[?])
n112= %bk = $replace(%bk,$,[$])
n113= %bk = $replace(%bk,#,[#])
n114= %bk = $replace(%bk,/,[/])
n115= %bk = $replace(%bk,\,[\])
n116= %bk = $replace(%bk,|,[|])
n117= say %bk
n118= unset %bk
n119=}
n120=/f11 {
n121= .ignore -rinpt *!*@*
n122= .timer851 1 50 .ignore -rinpt *!*@*
n123= .disable #floodultracommand
n124= .disable #floodultraevent
n125= echo 2 -a ü▀ΩtπFú≥≤╨ü Ultra Protection is now 4OFF.
n126= if ((%onick != $me ) && (%onick != $null)) { nick %onick | echo 2 -a ü▀ΩtπFú≥≤╨ü Restore Nickname to ü $+ %onick $+ ü }
n127= unset %onick
n128=}
n129=/f12 {
n130= if %onick == $null {
n131= .ignore -inpt *!*@*
n132= .timer851 1 50 .ignore -inpt *!*@*
n133= .enable #floodultracommand
n134= .enable #floodultraevent
n135= set %onick $me
n136= echo 2 -a ü▀ΩtπFú≥≤╨ü Ultra Protection is now 3ON.
n393= if ( $$1 == 3 ) { set %message $2 $+ $3 $+ $4 | msg # Welcome to the 12D-Day Script Scrambler to guess the word type guess = answer. The word is: $+ $3 $+ $2 $+ $4 | .enable #scramble | halt }
n394= if ( $$1 == 4 ) { set %message $2 $+ $3 $+ $4 $+ $5 | msg # Welcome to the 12D-Day Script Scrambler to guess the word type guess = answer. The word is: $+ $5 $+ $2 $+ $3 $+ $4 | .enable #scramble | halt }
n395= if ( $$1 == 5 ) { set %message $2 $+ $3 $+ $4 $+ $5 $+ $6 | msg # Welcome to the 12D-Day Script Scrambler to guess the word type guess = answer. The word is: $+ $6 $+ $3 $+ $2 $+ $5 $+ $4 | .enable #scramble | halt }
n396= if ( $$1 == 6 ) { set %message $2 $+ $3 $+ $4 $+ $5 $+ $6 $+ $7 | msg # Welcome to the 12D-Day Script Scrambler to guess the word type guess = answer. The word is: $+ $7 $+ $4 $+ $3 $+ $2 $+ $6 $+ $5 | .enable #scramble | halt }
n397= if ( $$1 == 7 ) { set %message $2 $+ $3 $+ $4 $+ $5 $+ $6 $+ $7 $+ $8 | msg # Welcome to the 12D-Day Script Scrambler to guess the word type guess = answer. The word is: $+ $8 $+ $2 $+ $6 $+ $4 $+ $5 $+ $3 $+ $7 | .enable #scramble | halt }
n398= if ( $$1 == 8 ) { set %message $2 $+ $3 $+ $4 $+ $5 $+ $6 $+ $7 $+ $8 $+ $9 | msg # Welcome to the 12D-Day Script Scrambler to guess the word type guess = answer. The word is: $+ $8 $+ $3 $+ $9 $+ $4 $+ $2 $+ $6 $+ $7 $+ $5 | .enable #scramble | halt }
n399=}
n400=/number /msg # Guess my Number by 12D-Day. I am thinking of a number from 1 to 1000. To guess the number type number = yourguess. | /set %number $rand(1,1000) | /.enable #numbers
n430= if (%i > $len(%eocline)) { /set %eoctext $remove(%eoctext,$chr(32)) | /set %eoctext $replace(%eoctext,,$chr(32)) | /msg $active %eoctext | halt }
n431= inc %i | if (2 // %i) set %eoctext %eoctext $upper($mid(%i,1,%eocline)) | else set %eoctext %eoctext $mid(%i,1,%eocline) | goto eoc
n432=}
n433=/rct {
n434= set %chr32 $chr(32) | set %rctext *1 | unset %rc %up1 %up2 %rct2
n435= :loop
n436= if (%rc == $len(%rctext)) { set %rct2 $remove(%rct2,$chr(32)) | set %rct2 $replace(%rct2,,$chr(32) ) | /msg $active %rct2 | halt }
n437= inc %rc | set %rct1 $mid(%rc,1,%rctext)
n438= if (%rct1 == %chr32) { set %rct2 %rct2 | goto loop }
n439= else {
n440= set %up1 $upper(%rct1) | set %up2 $lower(%rct1) | set %rct2 %rct2 %up [ $+ [ $rand(1,2) ] ]
n441= goto loop
n442= }
n443=}
n444=/backwards {
n445= unset %backtext
n446= if ($1 == -d) {
n447= set %backtext ºá
n448= set %text $remove(*1,$left(3,*1))
n449= }
n450= else { %text = *1 }
n451= %space = $chr(32)
n452= %i = $len(%text) + 1
n453= :next
n454= dec %i 1
n455= if %i == 0 { say %backtext | halt }
n456= %thischar = $mid(%i,1,%text)
n457= if %thischar == %space {
n458= %thislet = á
n459= if %backtext == $null { set %backtext %thislet | goto next }
n460= else { set %backtext %backtext $+ %thislet | goto next }
n461= }
n462= if %backtext == $null { set %backtext %thischar | goto next }
n463= else { set %backtext %backtext $+ %thischar | goto next }
n464=}
n465=/clonejoin {
n466= if $nick != $me {
n467= set %count 0 | /unset %clonejoin
n468= :start
n469= inc %count 1
n470= if $nick(%count,$chan) == $null goto end
n471= if $nick == $nick(%count,$chan) goto start
n472= if $address($nick(%count,$chan),3) == $address($nick,3) set %clonejoin %clonejoin $nick(%count,$chan) &
n473= goto start
n474= :end
n475= if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /msg $chan ü $+ %clonejoin $+ ü are CLONES! | /msg $chan ü $+ $address($nick,3) $+ ü ZaNdEr }
n476= unset %count | /unset %clonejoin
n477= }
n478=}
n479=/botend {
n480= if (%vkick > %kban) { vkick }
n481= if (%kban > %vkick) { kban }
n482= if (%vkick == %kban) { describe %bchan The votes are in, no verdict has been reached. 12D-Day
n483= }
n484=}
n485=/vkick:/kick # %botnick Spin the Bottle by 12D-Day You have been kicked
n486=/kban:/ban # %botnick 3 | /kick # %botnick Spin the Bottle by 12D-Day You have been kickbanned
n487=/code {
n488= set %pos1 0
n489= if (%code1 == º) { goto start1 }
n490= if (%key < 2) || (%key > 90) { key }
n491= set %len1 $len(*1) | set %code *1 | set %color1 4 | set %code1 "" | set %codekey %key